home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 February / Ahoy_Magazine_87-02_1987_Double_L.d64 / Screen Flash (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  623b  |  22 lines
  1. 0 rem << rr38-3 >>
  2. 1 rem ---------------------
  3. 2 print"  screen flash "
  4. 3 rem   rupert report #38
  5. 4 rem        c-64
  6. 5 rem  must run modified
  7. 6 rem 'string loader' first.
  8. 7 rem ----------------------
  9. 10 if peek(49153)<>8 then print"must run modified string loader first":stop
  10. 20 input"press any key to begin or to end";a$
  11. 30 n=960               :rem quantity
  12. 40 y=int(n/256)        :rem msb
  13. 50 x=n-y*256           :rem lsb
  14. 60 print chr$(147);
  15. 70 poke 781,x          :rem x register
  16. 80 poke 782,y          :rem y register
  17. 90 ch=rnd(0)*64+64     :rem character
  18. 100 poke 780,ch        :rem a register
  19. 110 sys 49152
  20. 120 for p=1 to 200:next  :rem pause
  21. 130 get a$ : if a$="" then goto 60
  22.